home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 010a / lamenu10.zip / LAMENU.BC < prev    next >
Text File  |  1991-01-26  |  19KB  |  1,028 lines
  1. let %!z = %1.dsp
  2. :begin
  3. read_file %!x %!z
  4. let %!j = %!x
  5. echo \\27[0m\\27[44;37m
  6. cls
  7. read_file %!x
  8. let %!a = %!x
  9. read_file %!x
  10. let %!b = %!x
  11. read_file %!x
  12. let %!c = %!x
  13. read_file %!x
  14. let %!e = %!x
  15. read_file %!x
  16. let %!f = %!x
  17. read_file %!x
  18. let %!g = %!x
  19. read_file %!x
  20. let %!i = %!x
  21. read_file %!x
  22. let %!k = %!x
  23. read_file %!x
  24. let %!l = %!x
  25. read_file %!x
  26. let %!o = %!x
  27. read_file %!x
  28. let %!r = %!x
  29. read_file %!x
  30. let %!s = %!x
  31. read_file %!x
  32. let %!d = %!x
  33. read_file %!x
  34. let %!m = %!x
  35. read_file %!x
  36. let %!w = %!x
  37. read_file %!x
  38. let %!y = %!x
  39. :begin_1
  40. gosub m_display
  41. if %RC% == 1 goto la2
  42. if %RC% == 2 goto ra1
  43. if %RC% == 3 goto la4
  44. if %RC% == 4 goto ra3
  45. if %RC% == 5 goto la6
  46. if %RC% == 6 goto ra5
  47. if %RC% == 7 goto la8
  48. if %RC% == 8 goto ra7
  49. if %RC% == 9 goto la10
  50. if %RC% == 10 goto ra9
  51. if %RC% == 11 goto la12
  52. if %RC% == 12 goto ra11
  53. goto start
  54. :m_display
  55. cls
  56. locate 1 2
  57. echonolf La Menu System v1.0
  58. lmdt
  59. gosub time
  60. locate 2 4
  61. echo By Bill Mezian
  62. locate 3 1
  63. echonolf ╞═══════════════════════════════════════
  64. echo ═══════════════════════════════════════╡
  65. let %!n = %!j
  66. string_length %!n
  67. sub %!n 80
  68. abs %!n
  69. div %!n 2
  70. locate 5 %!n
  71. echo %!j
  72. locate 8 11
  73. echonolf \\27[44;33m\\0\\0\\0* %!a\\27[44;37m
  74. locate 8 45
  75. echo \\27[44;33m\\0\\0\\0* %!b\\27[44;37m
  76. locate 10 11
  77. echonolf \\27[44;33m\\0\\0\\0* %!c\\27[44;37m
  78. locate 10 45
  79. echo \\27[44;33m\\0\\0\\0* %!e\\27[44;37m
  80. locate 12 11
  81. echonolf \\27[44;33m\\0\\0\\0* %!f\\27[44;37m
  82. locate 12 45
  83. echo \\27[44;33m\\0\\0\\0* %!g\\27[44;37m
  84. locate 14 11
  85. echonolf \\27[44;33m\\0\\0\\0* %!i\\27[44;37m
  86. locate 14 45
  87. echo \\27[44;33m\\0\\0\\0* %!k\\27[44;37m
  88. locate 16 11
  89. echonolf \\27[44;33m\\0\\0\\0* %!l\\27[44;37m
  90. locate 16 45
  91. echo \\27[44;33m\\0\\0\\0* %!o\\27[44;37m
  92. locate 18 11
  93. echonolf \\27[44;33m\\0\\0\\0* %!r\\27[44;37m
  94. locate 18 45
  95. echo \\27[44;33m\\0\\0\\0* %!s\\27[44;37m
  96. locate 21 12
  97. echonolf \\27[44;37mUse Arrow Keys \\24\\25 to\\0
  98. echo Highlight Selection and Press Enter
  99. locate 23 5
  100. echonolf \\27[30;46m[F6]\\27[30;46m  Disk Utilities\\27[37;44m
  101. locate 23 30
  102. echo \\27[30;46m[F7]\\27[30;46m  File Utilities\\27[37;44m
  103. locate 23 55
  104. echo \\27[30;46m[F8]\\27[30;46m Set Date & Time\\27[37;44m
  105. locate 25 2
  106. echonolf \\27[46;30m[F1]\\27[44;33m %!d
  107. locate 25 22
  108. echonolf \\27[46;30m[F2]\\27[44;33m %!m
  109. locate 25 42
  110. echonolf \\27[46;30m[F3]\\27[44;33m %!w
  111. locate 25 61
  112. echonolf \\27[46;30m[F4]\\27[44;33m %!y\\27[44;37m
  113. return
  114. :start
  115. locate 8 11
  116. echonolf \\27[46;30m══* %!a\\27[44;37m
  117. locate 8 14
  118. getkey
  119. error_level %!q
  120. gosub 1_test
  121. goto start
  122. :ua1
  123. gosub time
  124. locate 8 11
  125. echonolf \\27[44;33m\\0\\0\\0* %!a\\27[44;37m
  126. locate 18 45
  127. echo \\27[46;30m══* %!s\\27[44;37m
  128. locate 18 48
  129. getkey
  130. error_level %!q
  131. gosub 12_test
  132. goto ua1
  133. :da1
  134. gosub time
  135. locate 8 11
  136. echonolf \\27[44;33m\\0\\0\\0* %!a\\27[44;37m
  137. locate 10 11
  138. echonolf \\27[46;30m══* %!c\\27[44;37m
  139. locate 10 14
  140. getkey
  141. error_level %!q
  142. gosub 3_test
  143. goto da1
  144. :ra1
  145. gosub time
  146. locate 8 11
  147. echonolf \\27[44;33m\\0\\0\\0* %!a\\27[44;37m
  148. locate 8 45
  149. echo \\27[46;30m══* %!b\\27[44;37m
  150. locate 8 48
  151. getkey
  152. error_level %!q
  153. gosub 2_test
  154. goto ra1
  155. :la1
  156. gosub time
  157. locate 8 11
  158. echonolf \\27[44;33m\\0\\0\\0* %!a\\27[44;37m
  159. locate 18 11
  160. echonolf \\27[46;30m══* %!r\\27[44;37m
  161. locate 18 14
  162. getkey
  163. error_level %!q
  164. gosub 11_test
  165. goto la1
  166. :ua2
  167. gosub time
  168. locate 8 45
  169. echonolf \\27[44;33m\\0\\0\\0* %!b\\27[44;37m
  170. locate 18 11
  171. echonolf \\27[46;30m══* %!r\\27[44;37m
  172. locate 18 14
  173. getkey
  174. error_level %!q
  175. gosub 11_test
  176. goto ua2
  177. :da2
  178. gosub time
  179. locate 8 45
  180. echonolf \\27[44;33m\\0\\0\\0* %!b\\27[44;37m
  181. locate 10 45
  182. echonolf \\27[46;30m══* %!e\\27[44;37m
  183. locate 10 48
  184. getkey
  185. error_level %!q
  186. gosub 4_test
  187. goto da2
  188. :ra2
  189. gosub time
  190. locate 8 45
  191. echonolf \\27[44;33m\\0\\0\\0* %!b\\27[44;37m
  192. locate 10 11
  193. echonolf \\27[46;30m══* %!c\\27[44;37m
  194. locate 10 14
  195. getkey
  196. error_level %!q
  197. gosub 3_test
  198. goto ra2
  199. :la2
  200. gosub time
  201. locate 8 45
  202. echonolf \\27[44;33m\\0\\0\\0* %!b\\27[44;37m
  203. locate 8 11
  204. echonolf \\27[46;30m══* %!a\\27[44;37m
  205. locate 8 14
  206. getkey
  207. error_level %!q
  208. gosub 1_test
  209. goto la2
  210. :ua3
  211. gosub time
  212. locate 10 11
  213. echonolf \\27[44;33m\\0\\0\\0* %!c\\27[44;37m
  214. locate 8 11
  215. echonolf \\27[46;30m══* %!a\\27[44;37m
  216. locate 8 14
  217. getkey
  218. error_level %!q
  219. gosub 1_test
  220. goto ua3
  221. :da3
  222. gosub time
  223. locate 10 11
  224. echonolf \\27[44;33m\\0\\0\\0* %!c\\27[44;37m
  225. locate 12 11
  226. echonolf \\27[46;30m══* %!f\\27[44;37m
  227. locate 12 14
  228. getkey
  229. error_level %!q
  230. gosub 5_test
  231. goto da3
  232. :ra3
  233. gosub time
  234. locate 10 11
  235. echonolf \\27[44;33m\\0\\0\\0* %!c\\27[44;37m
  236. locate 10 45
  237. echo \\27[46;30m══* %!e\\27[44;37m
  238. locate 10 48
  239. getkey
  240. error_level %!q
  241. gosub 4_test
  242. goto ra3
  243. :la3
  244. gosub time
  245. locate 10 11
  246. echonolf \\27[44;33m\\0\\0\\0* %!c\\27[44;37m
  247. locate 8 45
  248. echonolf \\27[46;30m══* %!b\\27[44;37m
  249. locate 8 48
  250. getkey
  251. error_level %!q
  252. gosub 2_test
  253. goto la3
  254. :ua4
  255. gosub time
  256. locate 10 45
  257. echonolf \\27[44;33m\\0\\0\\0* %!e\\27[44;37m
  258. locate 8 45
  259. echo \\27[46;30m══* %!b\\27[44;37m
  260. locate 8 48
  261. getkey
  262. error_level %!q
  263. gosub 2_test
  264. goto ua4
  265. :da4
  266. gosub time
  267. locate 10 45
  268. echonolf \\27[44;33m\\0\\0\\0* %!e\\27[44;37m
  269. locate 12 45
  270. echonolf \\27[46;30m══* %!g\\27[44;37m
  271. locate 12 48
  272. getkey
  273. error_level %!q
  274. gosub 6_test
  275. goto da4
  276. :ra4
  277. gosub time
  278. locate 10 45
  279. echonolf \\27[44;33m\\0\\0\\0* %!e\\27[44;37m
  280. locate 12 11
  281. echonolf \\27[46;30m══* %!f\\27[44;37m
  282. locate 12 14
  283. getkey
  284. error_level %!q
  285. gosub 5_test
  286. goto ra4
  287. :la4
  288. gosub time
  289. locate 10 45
  290. echonolf \\27[44;33m\\0\\0\\0* %!e\\27[44;37m
  291. locate 10 11
  292. echonolf \\27[46;30m══* %!c\\27[44;37m
  293. locate 10 14
  294. getkey
  295. error_level %!q
  296. gosub 3_test
  297. goto la4
  298. :ua5
  299. gosub time
  300. locate 12 11
  301. echonolf \\27[44;33m\\0\\0\\0* %!f\\27[44;37m
  302. locate 10 11
  303. echonolf \\27[46;30m══* %!c\\27[44;37m
  304. locate 10 14
  305. getkey
  306. error_level %!q
  307. gosub 3_test
  308. goto ua5
  309. :da5
  310. gosub time
  311. locate 12 11
  312. echonolf \\27[44;33m\\0\\0\\0* %!f\\27[44;37m
  313. locate 14 11
  314. echonolf \\27[46;30m══* %!i\\27[44;37m
  315. locate 14 14
  316. getkey
  317. error_level %!q
  318. gosub 7_test
  319. goto da5
  320. :ra5
  321. gosub time
  322. locate 12 11
  323. echonolf \\27[44;33m\\0\\0\\0* %!f\\27[44;37m
  324. locate 12 45
  325. echonolf \\27[46;30m══* %!g\\27[44;37m
  326. locate 12 48
  327. getkey
  328. error_level %!q
  329. gosub 6_test
  330. goto ra5
  331. :la5
  332. gosub time
  333. locate 12 11
  334. echonolf \\27[44;33m\\0\\0\\0* %!f\\27[44;37m
  335. locate 10 45
  336. echonolf \\27[46;30m══* %!e\\27[44;37m
  337. locate 10 48
  338. getkey
  339. error_level %!q
  340. gosub 4_test
  341. goto la5
  342. :ua6
  343. gosub time
  344. locate 12 45
  345. echonolf \\27[44;33m\\0\\0\\0* %!g\\27[44;37m
  346. locate 10 45
  347. echonolf \\27[46;30m══* %!e\\27[44;37m
  348. locate 10 48
  349. getkey
  350. error_level %!q
  351. gosub 4_test
  352. goto ua6
  353. :da6
  354. gosub time
  355. locate 12 45
  356. echonolf \\27[44;33m\\0\\0\\0* %!g\\27[44;37m
  357. locate 14 45
  358. echonolf \\27[46;30m══* %!k\\27[44;37m
  359. locate 14 48
  360. getkey
  361. error_level %!q
  362. gosub 8_test
  363. goto da6
  364. :ra6
  365. gosub time
  366. locate 12 45
  367. echonolf \\27[44;33m\\0\\0\\0* %!g\\27[44;37m
  368. locate 14 11
  369. echonolf \\27[46;30m══* %!i\\27[44;37m
  370. locate 14 14
  371. getkey
  372. error_level %!q
  373. gosub 7_test
  374. goto ra6
  375. :la6
  376. gosub time
  377. locate 12 45
  378. echonolf \\27[44;33m\\0\\0\\0* %!g\\27[44;37m
  379. locate 12 11
  380. echonolf \\27[46;30m══* %!f\\27[44;37m
  381. locate 12 14
  382. getkey
  383. error_level %!q
  384. gosub 5_test
  385. goto la6
  386. :ua7
  387. gosub time
  388. locate 14 11
  389. echonolf \\27[44;33m\\0\\0\\0* %!i\\27[44;37m
  390. locate 12 11
  391. echonolf \\27[46;30m══* %!f\\27[44;37m
  392. locate 12 14
  393. getkey
  394. error_level %!q
  395. gosub 5_test
  396. goto ua7
  397. :da7
  398. gosub time
  399. locate 14 11
  400. echonolf \\27[44;33m\\0\\0\\0* %!i\\27[44;37m
  401. locate 16 11
  402. echonolf \\27[46;30m══* %!l\\27[44;37m
  403. locate 16 14
  404. getkey
  405. error_level %!q
  406. gosub 9_test
  407. goto da7
  408. :ra7
  409. gosub time
  410. locate 14 11
  411. echonolf \\27[44;33m\\0\\0\\0* %!i\\27[44;37m
  412. locate 14 45
  413. echonolf \\27[46;30m══* %!k\\27[44;37m
  414. locate 14 48
  415. getkey
  416. error_level %!q
  417. gosub 8_test
  418. goto ra7
  419. :la7
  420. gosub time
  421. locate 14 11
  422. echonolf \\27[44;33m\\0\\0\\0* %!i\\27[44;37m
  423. locate 12 45
  424. echonolf \\27[46;30m══* %!g\\27[44;37m
  425. locate 12 48
  426. getkey
  427. error_level %!q
  428. gosub 6_test
  429. goto la7
  430. :ua8
  431. gosub time
  432. locate 14 45
  433. echonolf \\27[44;33m\\0\\0\\0* %!k\\27[44;37m
  434. locate 12 45
  435. echonolf \\27[46;30m══* %!g\\27[44;37m
  436. locate 12 48
  437. getkey
  438. error_level %!q
  439. gosub 6_test
  440. goto ua8
  441. :da8
  442. gosub time
  443. locate 14 45
  444. echonolf \\27[44;33m\\0\\0\\0* %!k\\27[44;37m
  445. locate 16 45
  446. echonolf \\27[46;30m══* %!o\\27[44;37m
  447. locate 16 48
  448. getkey
  449. error_level %!q
  450. gosub 10_test
  451. goto da8
  452. :ra8
  453. gosub time
  454. locate 14 45
  455. echonolf \\27[44;33m\\0\\0\\0* %!k\\27[44;37m
  456. locate 16 11
  457. echonolf \\27[46;30m══* %!l\\27[44;37m
  458. locate 16 14
  459. getkey
  460. error_level %!q
  461. gosub 9_test
  462. goto ra8
  463. :la8
  464. gosub time
  465. locate 14 45
  466. echonolf \\27[44;33m\\0\\0\\0* %!k\\27[44;37m
  467. locate 14 11
  468. echonolf \\27[46;30m══* %!i\\27[44;37m
  469. locate 14 14
  470. getkey
  471. error_level %!q
  472. gosub 7_test
  473. goto la8
  474. :ua9
  475. gosub time
  476. locate 16 11
  477. echonolf \\27[44;33m\\0\\0\\0* %!l\\27[44;37m
  478. locate 14 11
  479. echonolf \\27[46;30m══* %!i\\27[44;37m
  480. locate 14 14
  481. getkey
  482. error_level %!q
  483. gosub 7_test
  484. goto ua9
  485. :da9
  486. gosub time
  487. locate 16 11
  488. echonolf \\27[44;33m\\0\\0\\0* %!l\\27[44;37m
  489. locate 18 11
  490. echonolf \\27[46;30m══* %!r\\27[44;37m
  491. locate 18 14
  492. getkey
  493. error_level %!q
  494. gosub 11_test
  495. goto da9
  496. :ra9
  497. gosub time
  498. locate 16 11
  499. echonolf \\27[44;33m\\0\\0\\0* %!l\\27[44;37m
  500. locate 16 45
  501. echonolf \\27[46;30m══* %!o\\27[44;37m
  502. locate 16 48
  503. getkey
  504. error_level %!q
  505. gosub 10_test
  506. goto ra9
  507. :la9
  508. gosub time
  509. locate 16 11
  510. echonolf \\27[44;33m\\0\\0\\0* %!l\\27[44;37m
  511. locate 14 45
  512. echonolf \\27[46;30m══* %!k\\27[44;37m
  513. locate 14 48
  514. getkey
  515. error_level %!q
  516. gosub 8_test
  517. goto la9
  518. :ua10
  519. gosub time
  520. locate 16 45
  521. echonolf \\27[44;33m\\0\\0\\0* %!o\\27[44;37m
  522. locate 14 45
  523. echonolf \\27[46;30m══* %!k\\27[44;37m
  524. locate 14 48
  525. getkey
  526. error_level %!q
  527. gosub 8_test
  528. goto ua10
  529. :da10
  530. gosub time
  531. locate 16 45
  532. echonolf \\27[44;33m\\0\\0\\0* %!o\\27[44;37m
  533. locate 18 45
  534. echonolf \\27[46;30m══* %!s\\27[44;37m
  535. locate 18 48
  536. getkey
  537. error_level %!q
  538. gosub 12_test
  539. goto da10
  540. :ra10
  541. gosub time
  542. locate 16 45
  543. echonolf \\27[44;33m\\0\\0\\0* %!o\\27[44;37m
  544. locate 18 11
  545. echonolf \\27[46;30m══* %!r\\27[44;37m
  546. locate 18 14
  547. getkey
  548. error_level %!q
  549. gosub 11_test
  550. goto ra10
  551. :la10
  552. gosub time
  553. locate 16 45
  554. echonolf \\27[44;33m\\0\\0\\0* %!o\\27[44;37m
  555. locate 16 11
  556. echonolf \\27[46;30m══* %!l\\27[44;37m
  557. locate 16 14
  558. getkey
  559. error_level %!q
  560. gosub 9_test
  561. goto la10
  562. :ua11
  563. gosub time
  564. locate 18 11
  565. echonolf \\27[44;33m\\0\\0\\0* %!r\\27[44;37m
  566. locate 16 11
  567. echonolf \\27[46;30m══* %!l\\27[44;37m
  568. locate 16 14
  569. getkey
  570. error_level %!q
  571. gosub 9_test
  572. goto ua11
  573. :da11
  574. gosub time
  575. locate 18 11
  576. echonolf \\27[44;33m\\0\\0\\0* %!r\\27[44;37m
  577. locate 8 45
  578. echonolf \\27[46;30m══* %!b\\27[44;37m
  579. locate 8 48
  580. getkey
  581. error_level %!q
  582. gosub 2_test
  583. goto da11
  584. :ra11
  585. gosub time
  586. locate 18 11
  587. echonolf \\27[44;33m\\0\\0\\0* %!r\\27[44;37m
  588. locate 18 45
  589. echonolf \\27[46;30m══* %!s\\27[44;37m
  590. locate 18 48
  591. getkey
  592. error_level %!q
  593. gosub 12_test
  594. goto ra11
  595. :la11
  596. gosub time
  597. locate 18 11
  598. echonolf \\27[44;33m\\0\\0\\0* %!r\\27[44;37m
  599. locate 16 45
  600. echonolf \\27[46;30m══* %!o\\27[44;37m
  601. locate 16 48
  602. getkey
  603. error_level %!q
  604. gosub 10_test
  605. goto la11
  606. :ua12
  607. gosub time
  608. locate 18 45
  609. echonolf \\27[44;33m\\0\\0\\0* %!s\\27[44;37m
  610. locate 16 45
  611. echonolf \\27[46;30m══* %!o\\27[44;37m
  612. locate 16 48
  613. getkey
  614. error_level %!q
  615. gosub 10_test
  616. goto ua12
  617. :da12
  618. gosub time
  619. locate 18 45
  620. echonolf \\27[44;33m\\0\\0\\0* %!s\\27[44;37m
  621. locate 8 11
  622. echonolf \\27[46;30m══* %!a\\27[44;37m
  623. locate 8 14
  624. getkey
  625. error_level %!q
  626. gosub 1_test
  627. goto da12
  628. :ra12
  629. gosub time
  630. locate 18 45
  631. echonolf \\27[44;33m\\0\\0\\0* %!s\\27[44;37m
  632. locate 8 45
  633. echonolf \\27[46;30m══* %!b\\27[44;37m
  634. locate 8 48
  635. getkey
  636. error_level %!q
  637. gosub 2_test
  638. goto ra12
  639. :la12
  640. gosub time
  641. locate 18 45
  642. echonolf \\27[44;33m\\0\\0\\0* %!s\\27[44;37m
  643. locate 18 11
  644. echonolf \\27[46;30m══* %!r\\27[44;37m
  645. locate 18 14
  646. getkey
  647. error_level %!q
  648. gosub 11_test
  649. goto la12
  650. :1_test
  651. if %!q = 18432 goto ua1
  652. if %!q = 20480 goto da1
  653. if %!q = 19712 goto ra1
  654. if %!q = 19200 goto la1
  655. if %!q = 27 goto end
  656. set rc=1
  657. if %!q = 15104 goto f1
  658. if %!q = 15360 goto f2
  659. if %!q = 15616 goto f3
  660. if %!q = 15872 goto f4
  661. if %!q = 13 goto 1
  662. if %!q = 16384 goto f6
  663. if %!q = 16640 goto f7
  664. if %!q = 16896 goto af8
  665. gosub time
  666. return
  667. :2_test
  668. if %!q = 18432 goto ua2
  669. if %!q = 20480 goto da2
  670. if %!q = 19712 goto ra2
  671. if %!q = 19200 goto la2
  672. if %!q = 27 goto end
  673. set rc=2
  674. if %!q = 15104 goto f1
  675. if %!q = 15360 goto f2
  676. if %!q = 15616 goto f3
  677. if %!q = 15872 goto f4
  678. if %!q = 13 goto 2
  679. if %!q = 16384 goto f6
  680. if %!q = 16640 goto f7
  681. if %!q = 16896 goto af8
  682. gosub time
  683. return
  684. :3_test
  685. if %!q = 18432 goto ua3
  686. if %!q = 20480 goto da3
  687. if %!q = 19712 goto ra3
  688. if %!q = 19200 goto la3
  689. if %!q = 27 goto end
  690. set rc=3
  691. if %!q = 15104 goto f1
  692. if %!q = 15360 goto f2
  693. if %!q = 15616 goto f3
  694. if %!q = 15872 goto f4
  695. if %!q = 13 goto 3
  696. if %!q = 16384 goto f6
  697. if %!q = 16640 goto f7
  698. if %!q = 16896 goto af8
  699. gosub time
  700. return
  701. :4_test
  702. if %!q = 18432 goto ua4
  703. if %!q = 20480 goto da4
  704. if %!q = 19712 goto ra4
  705. if %!q = 19200 goto la4
  706. if %!q = 27 goto end
  707. set rc=4
  708. if %!q = 15104 goto f1
  709. if %!q = 15360 goto f2
  710. if %!q = 15616 goto f3
  711. if %!q = 15872 goto f4
  712. if %!q = 13 goto 4
  713. if %!q = 16384 goto f6
  714. if %!q = 16640 goto f7
  715. if %!q = 16896 goto af8
  716. gosub time
  717. return
  718. :5_test
  719. if %!q = 18432 goto ua5
  720. if %!q = 20480 goto da5
  721. if %!q = 19712 goto ra5
  722. if %!q = 19200 goto la5
  723. if %!q = 27 goto end
  724. set rc=5
  725. if %!q = 15104 goto f1
  726. if %!q = 15360 goto f2
  727. if %!q = 15616 goto f3
  728. if %!q = 15872 goto f4
  729. if %!q = 13 goto 5
  730. if %!q = 16384 goto f6
  731. if %!q = 16640 goto f7
  732. if %!q = 16896 goto af8
  733. gosub time
  734. return
  735. :6_test
  736. if %!q = 18432 goto ua6
  737. if %!q = 20480 goto da6
  738. if %!q = 19712 goto ra6
  739. if %!q = 19200 goto la6
  740. if %!q = 27 goto end
  741. set rc=6
  742. if %!q = 15104 goto f1
  743. if %!q = 15360 goto f2
  744. if %!q = 15616 goto f3
  745. if %!q = 15872 goto f4
  746. if %!q = 13 goto 6
  747. if %!q = 16384 goto f6
  748. if %!q = 16640 goto f7
  749. if %!q = 16896 goto af8
  750. gosub time
  751. return
  752. :7_test
  753. if %!q = 18432 goto ua7
  754. if %!q = 20480 goto da7
  755. if %!q = 19712 goto ra7
  756. if %!q = 19200 goto la7
  757. if %!q = 27 goto end
  758. set rc=7
  759. if %!q = 15104 goto f1
  760. if %!q = 15360 goto f2
  761. if %!q = 15616 goto f3
  762. if %!q = 15872 goto f4
  763. if %!q = 13 goto 7
  764. if %!q = 16384 goto f6
  765. if %!q = 16640 goto f7
  766. if %!q = 16896 goto af8
  767. gosub time
  768. return
  769. :8_test
  770. if %!q = 18432 goto ua8
  771. if %!q = 20480 goto da8
  772. if %!q = 19712 goto ra8
  773. if %!q = 19200 goto la8
  774. if %!q = 27 goto end
  775. set rc=8
  776. if %!q = 15104 goto f1
  777. if %!q = 15360 goto f2
  778. if %!q = 15616 goto f3
  779. if %!q = 15872 goto f4
  780. if %!q = 13 goto 8
  781. if %!q = 16384 goto f6
  782. if %!q = 16640 goto f7
  783. if %!q = 16896 goto af8
  784. gosub time
  785. return
  786. :9_test
  787. if %!q = 18432 goto ua9
  788. if %!q = 20480 goto da9
  789. if %!q = 19712 goto ra9
  790. if %!q = 19200 goto la9
  791. if %!q = 27 goto end
  792. set rc=9
  793. if %!q = 15104 goto f1
  794. if %!q = 15360 goto f2
  795. if %!q = 15616 goto f3
  796. if %!q = 15872 goto f4
  797. if %!q = 13 goto 9
  798. if %!q = 16384 goto f6
  799. if %!q = 16640 goto f7
  800. if %!q = 16896 goto af8
  801. gosub time
  802. return
  803. :10_test
  804. if %!q = 18432 goto ua10
  805. if %!q = 20480 goto da10
  806. if %!q = 19712 goto ra10
  807. if %!q = 19200 goto la10
  808. if %!q = 27 goto end
  809. set rc=10
  810. if %!q = 15104 goto f1
  811. if %!q = 15360 goto f2
  812. if %!q = 15616 goto f3
  813. if %!q = 15872 goto f4
  814. if %!q = 13 goto 10
  815. if %!q = 16384 goto f6
  816. if %!q = 16640 goto f7
  817. if %!q = 16896 goto af8
  818. gosub time
  819. return
  820. :11_test
  821. if %!q = 18432 goto ua11
  822. if %!q = 20480 goto da11
  823. if %!q = 19712 goto ra11
  824. if %!q = 19200 goto la11
  825. if %!q = 27 goto end
  826. set rc=11
  827. if %!q = 15104 goto f1
  828. if %!q = 15360 goto f2
  829. if %!q = 15616 goto f3
  830. if %!q = 15872 goto f4
  831. if %!q = 13 goto 11
  832. if %!q = 16384 goto f6
  833. if %!q = 16640 goto f7
  834. if %!q = 16896 goto af8
  835. gosub time
  836. return
  837. :12_test
  838. if %!q = 18432 goto ua12
  839. if %!q = 20480 goto da12
  840. if %!q = 19712 goto ra12
  841. if %!q = 19200 goto la12
  842. if %!q = 27 goto end
  843. set rc=12
  844. if %!q = 15104 goto f1
  845. if %!q = 15360 goto f2
  846. if %!q = 15616 goto f3
  847. if %!q = 15872 goto f4
  848. if %!q = 13 goto 12
  849. if %!q = 16384 goto f6
  850. if %!q = 16640 goto f7
  851. if %!q = 16896 goto af8
  852. gosub time
  853. return
  854. :time
  855. hour_hour
  856. error_level %!h
  857. minute_minute
  858. error_level %!t
  859. let %!n = %!h
  860. if %!t == 0 let %!t = 00
  861. if %!t == 1 let %!t = 01
  862. if %!t == 2 let %!t = 02
  863. if %!t == 3 let %!t = 03
  864. if %!t == 4 let %!t = 04
  865. if %!t == 5 let %!t = 05
  866. if %!t == 6 let %!t = 06
  867. if %!t == 7 let %!t = 07
  868. if %!t == 8 let %!t = 08
  869. if %!t == 9 let %!t = 09
  870. let %!p = AM
  871. GT %!n 12
  872. if errorlevel 1 let %!p = PM
  873. if %!h == 0 let %!p = AM
  874. if %!p == PM sub %!h 12
  875. if %!h == 12 let %!p = PM
  876. if %!h == 0 let %!h = 12
  877. locate 1 68
  878. echonolf \\27[44;37m%!h\\58
  879. echonolf %!t  %!p\\0
  880. echo
  881. return
  882. :1
  883. cls
  884. if %!a = * goto begin
  885. locate 25 5
  886. echo Loading %!a - Please Wait
  887. SET LM=1
  888. exit
  889. :2
  890. cls
  891. if %!b = * goto begin
  892. locate 25 5
  893. echo Loading %!b - Please Wait
  894. SET LM=2
  895. exit
  896. :3
  897. cls
  898. if %!c = * goto begin
  899. locate 25 5
  900. echo Loading %!c - Please Wait
  901. SET LM=3
  902. exit
  903. :4
  904. cls
  905. if %!e = * goto begin
  906. locate 25 5
  907. echo Loading %!e - Please Wait
  908. SET LM=4
  909. exit
  910. :5
  911. cls
  912. if %!f = * goto begin
  913. locate 25 5
  914. echo Loading %!f - Please Wait
  915. SET LM=5
  916. exit
  917. :6
  918. cls
  919. if %!g = * goto begin
  920. locate 25 5
  921. echo Loading %!g - Please Wait
  922. SET LM=6
  923. exit
  924. :7
  925. cls
  926. if %!i = * goto begin
  927. locate 25 5
  928. echo Loading %!i - Please Wait
  929. SET LM=7
  930. exit
  931. :8
  932. cls
  933. if %!k = * goto begin
  934. locate 25 5
  935. echo Loading %!k - Please Wait
  936. SET LM=8
  937. exit
  938. :9
  939. cls
  940. if %!l = * goto begin
  941. locate 25 5
  942. echo Loading %!l - Please Wait
  943. SET LM=9
  944. exit
  945. :10
  946. cls
  947. if %!o = * goto begin
  948. locate 25 5
  949. echo Loading %!o - Please Wait
  950. SET LM=10
  951. exit
  952. :11
  953. cls
  954. if %!r = * goto begin
  955. locate 25 5
  956. echo Loading %!r - Please Wait
  957. SET LM=11
  958. exit
  959. :12
  960. cls
  961. if %!s = * goto begin
  962. locate 25 5
  963. echo Loading %!s - Please Wait
  964. SET LM=12
  965. exit
  966. :f1
  967. cls
  968. if %!d = * goto begin
  969. locate 25 5
  970. echo Loading %!d - Please Wait
  971. SET LM=F1
  972. exit
  973. :f2
  974. cls
  975. if %!m = * goto begin
  976. locate 25 5
  977. echo Loading %!m - Please Wait
  978. SET LM=F2
  979. exit
  980. :f3
  981. cls
  982. if %!w = * goto begin
  983. locate 25 5
  984. echo Loading %!w - Please Wait
  985. SET LM=F3
  986. exit
  987. :f4
  988. cls
  989. if %!y = * goto begin
  990. locate 25 5
  991. echo Loading %!y - Please Wait
  992. SET LM=F4
  993. exit
  994. :f6
  995. cls
  996. if not exist lmdutil.shl goto no_file
  997. ren lmdutil.shl lmdutil.exe
  998. lmdutil
  999. ren lmdutil.exe lmdutil.shl
  1000. goto begin_1
  1001. :f7
  1002. cls
  1003. if not exist lmfutil.shl goto no_file
  1004. ren lmfutil.shl lmfutil.exe
  1005. lmfutil
  1006. ren lmfutil.exe lmfutil.shl
  1007. goto begin_1
  1008. :af8
  1009. cls
  1010. echo
  1011. echo
  1012. date
  1013. echo
  1014. echo
  1015. time
  1016. cls
  1017. goto begin_1
  1018. :no_file
  1019. cls
  1020. locate 25 1
  1021. echonolf File Not Found -\\0
  1022. pausenolf
  1023. goto begin_1
  1024. :end
  1025. cls
  1026. set LM=EX
  1027. exit
  1028.